Mac Mania 3/MacMania 3.toast/Demo's/KarmaMacDemo/GAME_G1.DXR/00211.ls

Text File | 1995-10-24 | 3.7 KB | 204 lines

on moveSpin
  global count, a, b, c, d, e, f, h, j, k, l, n, o, p, r, t, u, v, w, x, y, spin1, spin2, spin3, spin4, spin5, spin6, spin8, spin10, spin11, spin12, spin14, spin15, spin16, spin18, spin20, spin21, spin22, spin23, spin24, spin25
  if a > 0 then
    updateSprite(3)
    if a = 2 then
      set a to 0
      set count to 0
    else
      set a to 2
    end if
    set spin1 to (spin1 + 1) mod 8
  end if
  if b > 0 then
    updateSprite(4)
    if b = 2 then
      set b to 0
      set count to 0
    else
      set b to 2
    end if
    set spin2 to (spin2 + 1) mod 8
  end if
  if c > 0 then
    updateSprite(5)
    if c = 2 then
      set c to 0
      set count to 0
    else
      set c to 2
    end if
    set spin3 to (spin3 + 1) mod 8
  end if
  if d > 0 then
    updateSprite(6)
    if d = 2 then
      set d to 0
      set count to 0
    else
      set d to 2
    end if
    set spin4 to (spin4 + 1) mod 8
  end if
  if e > 0 then
    updateSprite(7)
    if e = 2 then
      set e to 0
      set count to 0
    else
      set e to 2
    end if
    set spin5 to (spin5 + 1) mod 8
  end if
  if f > 0 then
    updateSprite(8)
    if f = 2 then
      set f to 0
      set count to 0
    else
      set f to 2
    end if
    set spin6 to (spin6 + 1) mod 8
  end if
  if h > 0 then
    updateSprite(10)
    if h = 2 then
      set h to 0
      set count to 0
    else
      set h to 2
    end if
    set spin8 to (spin8 + 1) mod 8
  end if
  if j > 0 then
    updateSprite(12)
    if j = 2 then
      set j to 0
      set count to 0
    else
      set j to 2
    end if
    set spin10 to (spin10 + 1) mod 8
  end if
  if k > 0 then
    updateSprite(13)
    if k = 2 then
      set k to 0
      set count to 0
    else
      set k to 2
    end if
    set spin11 to (spin11 + 1) mod 8
  end if
  if l > 0 then
    updateSprite(14)
    if l = 2 then
      set l to 0
      set count to 0
    else
      set l to 2
    end if
    set spin12 to (spin12 + 1) mod 8
  end if
  if n > 0 then
    updateSprite(16)
    if n = 2 then
      set n to 0
      set count to 0
    else
      set n to 2
    end if
    set spin14 to (spin14 + 1) mod 8
  end if
  if o > 0 then
    updateSprite(17)
    if o = 2 then
      set o to 0
      set count to 0
    else
      set o to 2
    end if
    set spin15 to (spin15 + 1) mod 8
  end if
  if p > 0 then
    updateSprite(18)
    if p = 2 then
      set p to 0
      set count to 0
    else
      set p to 2
    end if
    set spin16 to (spin16 + 1) mod 8
  end if
  if r > 0 then
    updateSprite(20)
    if r = 2 then
      set r to 0
      set count to 0
    else
      set r to 2
    end if
    set spin18 to (spin18 + 1) mod 8
  end if
  if t > 0 then
    updateSprite(22)
    if t = 2 then
      set t to 0
      set count to 0
    else
      set t to 2
    end if
    set spin20 to (spin20 + 1) mod 8
  end if
  if u > 0 then
    updateSprite(23)
    if u = 2 then
      set u to 0
      set count to 0
    else
      set u to 2
    end if
    set spin21 to (spin21 + 1) mod 8
  end if
  if v > 0 then
    updateSprite(24)
    if v = 2 then
      set v to 0
      set count to 0
    else
      set v to 2
    end if
    set spin22 to (spin22 + 1) mod 8
  end if
  if w > 0 then
    updateSprite(25)
    if w = 2 then
      set w to 0
      set count to 0
    else
      set w to 2
    end if
    set spin23 to (spin23 + 1) mod 8
  end if
  if x > 0 then
    updateSprite(26)
    if x = 2 then
      set x to 0
      set count to 0
    else
      set x to 2
    end if
    set spin24 to (spin24 + 1) mod 8
  end if
  if y > 0 then
    updateSprite(27)
    if y = 2 then
      set y to 0
      set count to 0
    else
      set y to 2
    end if
    set spin25 to (spin25 + 1) mod 8
  end if
end